home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Stars.amos / Stars.amosSourceCode
AMOS Source Code  |  1980-01-10  |  883b  |  38 lines
  1. ' STARS:   
  2. ' CODE: DELTA/OPIUM
  3. ' REQUIRED: AMOSPRO-TURBO.LIB (1.9+) 
  4. ' CTX: 
  5. ' DELTA
  6. ' UL. W�oska 4d/6
  7. ' 42-600 Tarnowskie G�ry 
  8. ' POLAND 
  9. '  
  10. ' SOMETHING ABOUT IT:  
  11. ' NUM        -  numer of star  
  12. ' X,Y        -  x coordinate and y coordinate on the screen    
  13. ' XS,YS      -  x speed and y speed  
  14. '_STARS,_END -  stars to calculate 
  15. '
  16. Screen Open 0,320,256,2,Lowres
  17. Flash Off : Curs Off : Cls 0 : Palette $0,$FFF
  18.  Extension_12_03C8 500
  19. For B=1 To 500
  20.    _MAKE_STAR[B,Rnd(320),Rnd(256),Rnd(3)+1,Rnd(3)+1]
  21. Next 
  22. A=Execall(-132)
  23. Double Buffer : Autoback 0
  24. Do 
  25.    _COMPUTE_STARS[1,100]
  26.    Screen Swap 
  27.    Wait Vbl 
  28.     Extension_12_03A6 -1
  29.    If Mouse Key Then A=Execall(-138) : End 
  30. Loop 
  31.  
  32. Procedure _MAKE_STAR[NUM,X,Y,XS,YS]
  33.     Extension_12_03DC NUM,X,Y,XS,YS
  34. End Proc
  35. Procedure _COMPUTE_STARS[_START,_END]
  36.     Extension_12_041C _START To _END
  37.     Extension_12_03F6 
  38. End Proc